#!
@terms = qw(abc def ijk);
@inter = grep(($_ eq "def"),@terms);

if(@inter !=0)
{
	print "yeah";
}
else
{
	print "nooo!";	
}